copa.70 <- as.Date(copa.70,format="%d/%m/%y")
copa.94 <- as.Date(copa.94,format="%d/%m/%y")
class(copa.70)
class(copa.94)
copa.94 - copa.70

#nveis de fatores
herb <- c("A","M","M","A","A","M","M","B","A","A","A","A","B","A")
#criar um objeto da classe fator
herb.f <- factor(herb)
(herb.t <- table(herb.f))
plot(herb.t)
#deu ruim pq o R cria nveis apenas para valores presentes e em ordem alfabtica
herb.f <- factor(herb, levels=c("N","B","M","A"))
herb.t <- table(herb.f)
herb.t
plot(herb.t) 

#quais pacotes esto disponveis
library()
help.start()
#quais esto carregados
search()
#gerar 15 nmeros sorteados de uma distribuio normal, com mdia 1 
e desvio-padro=3, e guardar o resultado no onbjeto x1
x1 <- rnorm(n=15, mean=1, sd=3)
hist(x1)
truehist(x1)
search()
library(MASS)
search()
truehist(x1)

##EXERCCIO 1.1
#achando o diretrio e mudando
getwd()
#mudando o diretrio para o exercicio 1
setwd("F:/Documents/exercicio1")
getwd ()

##1.2
help(rm)
ls()
rm("area", "modelo1", "modelo2", "previsto", "riqueza", "varea")
ls()
#agora tudo foi apagado, aparece "Character (0)"

##1.3
